PROGRAM guessGame;

CONST
	number = 99;

VAR
	 guessed:BOOLEAN;{猜到为ture}

PROCEDURE guess();

VAR
	n:INTEGER;
	
BEGIN
	REPEAT
		writeln('Input a numer you think is most likely correct:');
		readln(n);
	
		IF n  > number THEN writeln('Larger!');
		IF n < number THEN writeln('Smaller!'); 
		IF n = number THEN 
			      BEGIN
			      	writeln('Make it!');
				guessed := TRUE;
			      END;
	UNTIL guessed = TRUE;
	

END;

BEGIN
	guessed := FALSE;
	guess();
END.
